home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 March / 64er_Magazin_90-03_1990_Markt__Technik_de_Side_A.d64 / swap in .scr (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  905b  |  47 lines
  1. 10 sys9
  2. 20 .opt oo
  3. 30 *=$1000
  4. 40 z = $b0
  5. 50 sinus = $1100
  6. 90 ;---------------- irq-initialisieren
  7. 100 sei
  8. 105 lda #0:sta $dc0e
  9. 110 lda #$f1:sta $d01a
  10. 120 lda #0:sta $d019
  11. 130 lda #$1b:sta $d011
  12. 140 lda #$1e:sta $d012
  13. 150 lda #0:sta $3fff
  14. 160 ldx #<irq
  15. 170 ldy #>irq
  16. 180 stx $314
  17. 190 sty $315
  18. 195 lda #0:sta z+1
  19. 196 lda $1100:sta z
  20. 200 cli
  21. 210 rts
  22. 220 ;----------------- neuer raster-irq
  23. 300 irq ldx z
  24. 310 zmal lda $d012
  25. 320 zend cmp $d012
  26. 330 beq zend
  27. 340 and #7:ora #$18:sta $d011
  28. 350 dex:bne zmal
  29. 360 jsr m1
  30. 400 lda #1:sta $d019
  31. 410 jmp $ea31
  32. 420 ;-------------- aendern der hoehe z
  33. 500 m1 inc z+1:ldy z+1
  34. 510 cpy #255
  35. 520 bne m2
  36. 530 lda #$a5:sta m1
  37. 535 ;----------- warten auf space-taste
  38. 540 lda $dc01:cmp #239:bne m2
  39. 550 lda #$c6:sta m1
  40. 560 m2 cpy #0:bne m3
  41. 564 ;--------- eventuell naechste seite
  42. 565 inc $d020
  43. 570 lda #$e6:sta m1
  44. 580 ;------------ neuer wert fuer hoehe
  45. 590 m3 lda sinus,y:sta z
  46. 600 rts
  47.